; * lisp/emacs-lisp/byte-opt.el (byte-optimize-eq): Fix last change.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 7ed04b32e97df5998de68709ee555082df33098b..c9c0ac0045e47dcd00ea32e41e4fcedcc06bf23c 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -970,10 +970,9 @@ See Info node `(elisp) Integer Basics'."
      form)))
 
 (defun byte-optimize-eq (form)
-  (byte-optimize-binary-predicate
-   (pcase (cdr form)
-     ((or `(,x nil) `(nil ,x)) `(not ,x))
-     (_ form))))
+  (pcase (cdr form)
+    ((or `(,x nil) `(nil ,x)) `(not ,x))
+    (_ (byte-optimize-binary-predicate form))))
 
 (defun byte-optimize-member (form)
   ;; Replace `member' or `memql' with `memq' if the first arg is a symbol,